home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Unix / satan-1.1.1 / html / reporting / satan_severity_hosts.pl < prev    next >
Text File  |  1995-03-31  |  1KB  |  47 lines
  1. #
  2. # Show all hosts with a specific vulnerability.
  3. #
  4. ($_SEVERITY, $_sort_order) = split(/,/, $html_script_args);
  5. ($_severity = $_SEVERITY) =~ tr /?!/ \//;
  6. ($_tutorial = $_severity) =~ tr / /_/;
  7.  
  8. print CLIENT <<EOF;
  9. <HTML>
  10. <HEAD>
  11. <title> Host Table - $_severity </title>
  12. <LINK REV="made" HREF="mailto:satan\@fish.com">
  13. </HEAD>
  14. <BODY>
  15. <H1><IMG SRC=$HTML_ROOT/images/satan.gif> Host Table - $_severity </H1>
  16. <hr>
  17.  
  18. <h2> 
  19. Tutorial: 
  20. <a href="$HTML_ROOT/tutorials/vulnerability/$_tutorial.html>$_severity</a>.
  21. </h2>
  22.  
  23. <h3> 
  24. $severity_type_count{$_severity} Host(s). 
  25. Number of vulnerabilities in parentheses. 
  26. </h3>
  27.  
  28. <H4> Sort hosts by:
  29. <a href="satan_severity_hosts.pl,$_SEVERITY,name,">name</a> |
  30. <a href="satan_severity_hosts.pl,$_SEVERITY,domain,">domain</a> |
  31. <a href="satan_severity_hosts.pl,$_SEVERITY,type,">system type</a> |
  32. <a href="satan_severity_hosts.pl,$_SEVERITY,subnet,">subnet</a> |
  33. <a href="satan_severity_hosts.pl,$_SEVERITY,severity,">problem count</a> 
  34. </H4>
  35. EOF
  36.  
  37. @_hosts = keys %{$severity_type_host_info{$_severity}};
  38. do "$html_root/reporting/sort_hosts.pl";
  39. print CLIENT $@ if $@;
  40.  
  41. print CLIENT <<EOF;
  42. <hr> <a href=$HTML_STARTPAGE> Back to the SATAN start page </a> |
  43. <a href=analysis.pl> Back to SATAN Reporting and Analysis </a>
  44. </BODY>
  45. </HTML>
  46. EOF
  47.